unit Bitmap2;

interface

uses
    Winapi.Windows,
    Vcl.Graphics,Vcl.Dialogs,
    Point,
    stroke, opengl,GLFrames, colors, System.SysUtils,gblur2;

CONST
    PixelCountMax = 32768;

type
    TBitmap2 = class(TBitmap)
        protected
        private
        public
            procedure CopyCanvas(source: TBitmap2; image : bool); overload;
            procedure CopyCanvas(source: TPicture); overload;
    end;


implementation


procedure Tbitmap2.CopyCanvas(source: TBitmap2; image : bool);
begin
    Width := source.Width;
    Height := source.Height;
    PixelFormat:= pf24Bit;
    if image then Canvas.Draw(0, 0, source);
end;

procedure Tbitmap2.CopyCanvas(source: TPicture);
begin
    Width := source.Width;
    Height := source.Height;
    Canvas.Draw(0, 0, source.graphic);
    PixelFormat:= pf24Bit;

end;

end.
